home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00083.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  3.1 KB  |  109 lines
  1. global gqtvrinstance, qtvrpath, roomnumber, light, plan, objectpict, codelist, aniflag, nodepict, nodeplan, compassline1, compassline2, sideboard, roomname, vrpict, returnlist, objnamesprite, objmarker, audioguidesprite
  2.  
  3. on prepareMovie
  4.   qtvrenter(xtra("QTVRXtra"))
  5.   set gqtvrinstance to new(xtra("QTVRXtra"))
  6.   set qtvrpath to "..\Qtvr\"
  7.   set light to 3
  8.   set plan to 10
  9.   set nodeplan to 11
  10.   set vrpict to 12
  11.   set objnamesprite to 105
  12.   set objmarker to 106
  13.   set compassline1 to 95
  14.   set compassline2 to 96
  15.   set nodepict to 109
  16.   set objectpict to 110
  17.   set sideboard to 97
  18.   set roomname to 6
  19.   set audioguidesprite to 98
  20.   set returnlist to [:]
  21.   set returnlist to value(field "Panorama Location")
  22.   if getProp(returnlist, #flag) = 1 then
  23.     set roomnumber to getProp(returnlist, #roomnumber)
  24.     showcast("R" & roomnumber)
  25.     set the visible of sprite vrpict to 0
  26.   end if
  27.   set the visible of sprite light to 0
  28.   set the visible of sprite objmarker to 0
  29.   set aniflag to 1
  30.   set the volume of sound 1 to 120
  31. end
  32.  
  33. on startMovie
  34.   global projectlist
  35.   if soundBusy(1) then
  36.     sound stop 1
  37.   end if
  38.   playthesound(1, "..\Audio\Music1.wav")
  39.   puppetSprite(2, 1)
  40.   set projectlist to [0, 109, 111, 203, 205, 207, 211, 305]
  41. end
  42.  
  43. on stopMovie
  44.   if the last char in string(roomnumber) = "0" then
  45.     put "[#RoomNumber:" && roomnumber & ", #NodeID: 0, #Flag: 0]" into field "Panorama Location"
  46.   else
  47.     set nodeid to qtvrgetnodeid(gqtvrinstance)
  48.     put qtvrgetpanangle(gqtvrinstance) into field "PanAngle"
  49.     put qtvrgettiltangle(gqtvrinstance) into field "TiltAngle"
  50.     put qtvrgetfov(gqtvrinstance) into field "FOV"
  51.     put qtvrgetquality(gqtvrinstance) into field "Quality"
  52.     put "[#RoomNumber:" && roomnumber & ", #NodeID:" && qtvrgetnodeid(gqtvrinstance) & ", #Flag: 1]" into field "Panorama Location"
  53.   end if
  54.   closemovie()
  55.   set gqtvrinstance to 0
  56.   qtvrexit(xtra("QTVRXtra"))
  57.   gobackpath()
  58. end
  59.  
  60. on closemovie
  61.   if soundBusy(2) then
  62.     sound close 2
  63.     puppetSprite(audioguidesprite, 0)
  64.   end if
  65.   if isqtvrmovie(gqtvrinstance) then
  66.     qtvrclose(gqtvrinstance)
  67.   end if
  68. end
  69.  
  70. on createcodelist whichroom
  71.   if the number of member ("CodeList" && whichroom) > 0 then
  72.     set filelist to "CodeList" && whichroom
  73.     set linecounter to the number of lines in field filelist
  74.     set codelist to [:]
  75.     repeat with i = 1 to linecounter
  76.       setaProp(codelist, item 1 of line i of field filelist, item 2 of line i of field filelist)
  77.     end repeat
  78.   end if
  79. end
  80.  
  81. on showcast castlibname
  82.   set the fileName of castLib "Room" to castlibname
  83. end
  84.  
  85. on openqtvr visibleonoff
  86.   set qtvrRect to recttostr(the rect of sprite 120)
  87.   set qtvrFile to the pathName & qtvrpath & "P" & roomnumber & "0000.mov"
  88.   qtvropen(gqtvrinstance, qtvrFile, qtvrRect, visibleonoff)
  89.   if qtvrgetqtvrtype(gqtvrinstance) = "QTVRPanorama" then
  90.     InitPanoCallbacks()
  91.   end if
  92. end
  93.  
  94. on recttostr myrect
  95.   set mystring to string(myrect)
  96.   delete char 1 to 5 of mystring
  97.   delete char the length of mystring of mystring
  98.   return mystring
  99. end
  100.  
  101. on toobjectmovie newfile
  102.   put newfile into field "Current Object"
  103.   go(1, "Object")
  104. end
  105.  
  106. on idle
  107.   soundwait(1, "..\Audio\Music1.wav")
  108. end
  109.